/ Celestin Apprentice 4 / Apprentice-Release4.iso / Languages / Oberon⁄F™ 1.1 / Mac / Mod / GDevices

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000050| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000060| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000080| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000090| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000000a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000000b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000000c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000000d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000000e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000000f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000100| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000110| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000120| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000130| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000140| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000150| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000160| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000170| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000180| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000190| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000200| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000210| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000220| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000230| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000240| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000250| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000260| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000270| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000280| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000290| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000300| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000310| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000320| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000330| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000340| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000350| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000360| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000370| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000380| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000390| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000003a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000003b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000003c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000003d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000003e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000003f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000400| 44 45 5d 20 6e 65 77 47 | 57 6f 72 6c 64 20 28 56 |DE] newG|World (V|
|00000410| 41 52 20 6f 66 66 73 63 | 72 65 65 6e 47 57 6f 72 |AR offsc|reenGWor|
|00000420| 6c 64 3a 20 47 57 6f 72 | 6c 64 50 74 72 3b 20 70 |ld: GWor|ldPtr; p|
|00000430| 69 78 65 6c 44 65 70 74 | 68 3a 20 49 4e 54 45 47 |ixelDept|h: INTEG|
|00000440| 45 52 3b 0d 09 09 09 09 | 09 09 62 6f 75 6e 64 52 |ER;.....|..boundR|
|00000450| 65 63 74 3a 20 4d 61 63 | 54 79 70 65 73 2e 52 65 |ect: Mac|Types.Re|
|00000460| 63 74 3b 20 63 54 61 62 | 6c 65 3a 20 4c 4f 4e 47 |ct; cTab|le: LONG|
|00000470| 49 4e 54 3b 20 61 47 44 | 65 76 69 63 65 3a 20 47 |INT; aGD|evice: G|
|00000480| 44 48 61 6e 64 6c 65 3b | 0d 09 09 09 09 09 09 66 |DHandle;|.......f|
|00000490| 6c 61 67 73 3a 20 53 45 | 54 29 3a 20 49 4e 54 45 |lags: SE|T): INTE|
|000004a0| 47 45 52 09 30 41 42 48 | 2c 20 30 31 44 48 3b 0d |GER.0ABH|, 01DH;.|
|000004b0| 09 50 52 4f 43 45 44 55 | 52 45 20 5b 43 4f 44 45 |.PROCEDU|RE [CODE|
|000004c0| 5d 20 75 70 64 61 74 65 | 47 57 6f 72 6c 64 20 28 |] update|GWorld (|
|000004d0| 56 41 52 20 6f 66 66 73 | 63 72 65 65 6e 47 57 6f |VAR offs|creenGWo|
|000004e0| 72 6c 64 3a 20 47 57 6f | 72 6c 64 50 74 72 3b 20 |rld: GWo|rldPtr; |
|000004f0| 70 69 78 65 6c 44 65 70 | 74 68 3a 20 49 4e 54 45 |pixelDep|th: INTE|
|00000500| 47 45 52 3b 0d 09 09 09 | 09 09 09 62 6f 75 6e 64 |GER;....|...bound|
|00000510| 52 65 63 74 3a 20 4d 61 | 63 54 79 70 65 73 2e 52 |Rect: Ma|cTypes.R|
|00000520| 65 63 74 3b 20 63 54 61 | 62 6c 65 3a 20 4c 4f 4e |ect; cTa|ble: LON|
|00000530| 47 49 4e 54 3b 20 61 47 | 44 65 76 69 63 65 3a 20 |GINT; aG|Device: |
|00000540| 47 44 48 61 6e 64 6c 65 | 3b 0d 09 09 09 09 09 09 |GDHandle|;.......|
|00000550| 66 6c 61 67 73 3a 20 53 | 45 54 29 3a 20 53 45 54 |flags: S|ET): SET|
|00000560| 09 30 41 42 48 2c 20 30 | 31 44 48 3b 0d 09 50 52 |.0ABH, 0|1DH;..PR|
|00000570| 4f 43 45 44 55 52 45 20 | 5b 43 4f 44 45 5d 20 73 |OCEDURE |[CODE] s|
|00000580| 65 74 47 57 6f 72 6c 64 | 20 28 70 6f 72 74 3a 20 |etGWorld| (port: |
|00000590| 4d 61 63 43 51 75 69 63 | 6b 44 72 61 77 2e 43 47 |MacCQuic|kDraw.CG|
|000005a0| 72 61 66 50 74 72 3b 20 | 67 64 68 3a 20 47 44 48 |rafPtr; |gdh: GDH|
|000005b0| 61 6e 64 6c 65 29 09 30 | 41 42 48 2c 20 30 31 44 |andle).0|ABH, 01D|
|000005c0| 48 3b 0d 09 50 52 4f 43 | 45 44 55 52 45 20 5b 43 |H;..PROC|EDURE [C|
|000005d0| 4f 44 45 5d 20 67 65 74 | 47 57 6f 72 6c 64 20 28 |ODE] get|GWorld (|
|000005e0| 56 41 52 20 70 6f 72 74 | 3a 20 4d 61 63 43 51 75 |VAR port|: MacCQu|
|000005f0| 69 63 6b 44 72 61 77 2e | 43 47 72 61 66 50 74 72 |ickDraw.|CGrafPtr|
|00000600| 3b 20 56 41 52 20 67 64 | 68 3a 20 47 44 48 61 6e |; VAR gd|h: GDHan|
|00000610| 64 6c 65 29 09 30 41 42 | 48 2c 20 30 31 44 48 3b |dle).0AB|H, 01DH;|
|00000620| 0d 09 50 52 4f 43 45 44 | 55 52 45 20 5b 43 4f 44 |..PROCED|URE [COD|
|00000630| 45 5d 20 64 69 73 70 6f | 73 65 47 57 6f 72 6c 64 |E] dispo|seGWorld|
|00000640| 20 28 6f 66 66 73 63 72 | 65 65 6e 47 57 6f 72 6c | (offscr|eenGWorl|
|00000650| 64 3a 20 47 57 6f 72 6c | 64 50 74 72 29 09 30 41 |d: GWorl|dPtr).0A|
|00000660| 42 48 2c 20 30 31 44 48 | 3b 0d 0d 09 50 52 4f 43 |BH, 01DH|;...PROC|
|00000670| 45 44 55 52 45 20 5b 4e | 4f 53 54 4b 43 48 4b 5d |EDURE [N|OSTKCHK]|
|00000680| 20 4e 65 77 47 57 6f 72 | 6c 64 2a 20 28 56 41 52 | NewGWor|ld* (VAR|
|00000690| 20 6f 66 66 73 63 72 65 | 65 6e 47 57 6f 72 6c 64 | offscre|enGWorld|
|000006a0| 3a 20 47 57 6f 72 6c 64 | 50 74 72 3b 20 70 69 78 |: GWorld|Ptr; pix|
|000006b0| 65 6c 44 65 70 74 68 3a | 20 49 4e 54 45 47 45 52 |elDepth:| INTEGER|
|000006c0| 3b 0d 09 09 09 09 09 09 | 62 6f 75 6e 64 52 65 63 |;.......|boundRec|
|000006d0| 74 3a 20 4d 61 63 54 79 | 70 65 73 2e 52 65 63 74 |t: MacTy|pes.Rect|
|000006e0| 3b 20 63 54 61 62 6c 65 | 3a 20 4c 4f 4e 47 49 4e |; cTable|: LONGIN|
|000006f0| 54 3b 20 61 47 44 65 76 | 69 63 65 3a 20 47 44 48 |T; aGDev|ice: GDH|
|00000700| 61 6e 64 6c 65 3b 0d 09 | 09 09 09 09 09 66 6c 61 |andle;..|.....fla|
|00000710| 67 73 3a 20 53 45 54 29 | 3a 20 49 4e 54 45 47 45 |gs: SET)|: INTEGE|
|00000720| 52 3b 0d 09 42 45 47 49 | 4e 0d 09 09 53 59 53 54 |R;..BEGI|N...SYST|
|00000730| 45 4d 2e 50 55 54 52 45 | 47 28 30 2c 20 30 30 31 |EM.PUTRE|G(0, 001|
|00000740| 36 30 30 30 30 48 29 3b | 0d 09 09 52 45 54 55 52 |60000H);|...RETUR|
|00000750| 4e 20 6e 65 77 47 57 6f | 72 6c 64 28 6f 66 66 73 |N newGWo|rld(offs|
|00000760| 63 72 65 65 6e 47 57 6f | 72 6c 64 2c 20 70 69 78 |creenGWo|rld, pix|
|00000770| 65 6c 44 65 70 74 68 2c | 20 62 6f 75 6e 64 52 65 |elDepth,| boundRe|
|00000780| 63 74 2c 20 63 54 61 62 | 6c 65 2c 20 61 47 44 65 |ct, cTab|le, aGDe|
|00000790| 76 69 63 65 2c 20 66 6c | 61 67 73 29 0d 09 45 4e |vice, fl|ags)..EN|
|000007a0| 44 20 4e 65 77 47 57 6f | 72 6c 64 3b 0d 0d 09 50 |D NewGWo|rld;...P|
|000007b0| 52 4f 43 45 44 55 52 45 | 20 5b 4e 4f 53 54 4b 43 |ROCEDURE| [NOSTKC|
|000007c0| 48 4b 5d 20 55 70 64 61 | 74 65 47 57 6f 72 6c 64 |HK] Upda|teGWorld|
|000007d0| 2a 20 28 56 41 52 20 6f | 66 66 73 63 72 65 65 6e |* (VAR o|ffscreen|
|000007e0| 47 57 6f 72 6c 64 3a 20 | 47 57 6f 72 6c 64 50 74 |GWorld: |GWorldPt|
|000007f0| 72 3b 20 70 69 78 65 6c | 44 65 70 74 68 3a 20 49 |r; pixel|Depth: I|
|00000800| 4e 54 45 47 45 52 3b 0d | 09 09 09 09 09 09 62 6f |NTEGER;.|......bo|
|00000810| 75 6e 64 52 65 63 74 3a | 20 4d 61 63 54 79 70 65 |undRect:| MacType|
|00000820| 73 2e 52 65 63 74 3b 20 | 63 54 61 62 6c 65 3a 20 |s.Rect; |cTable: |
|00000830| 4c 4f 4e 47 49 4e 54 3b | 20 61 47 44 65 76 69 63 |LONGINT;| aGDevic|
|00000840| 65 3a 20 47 44 48 61 6e | 64 6c 65 3b 0d 09 09 09 |e: GDHan|dle;....|
|00000850| 09 09 09 66 6c 61 67 73 | 3a 20 53 45 54 29 3a 20 |...flags|: SET): |
|00000860| 53 45 54 3b 0d 09 42 45 | 47 49 4e 0d 09 09 53 59 |SET;..BE|GIN...SY|
|00000870| 53 54 45 4d 2e 50 55 54 | 52 45 47 28 30 2c 20 30 |STEM.PUT|REG(0, 0|
|00000880| 30 31 36 30 30 30 33 48 | 29 3b 0d 09 09 52 45 54 |0160003H|);...RET|
|00000890| 55 52 4e 20 75 70 64 61 | 74 65 47 57 6f 72 6c 64 |URN upda|teGWorld|
|000008a0| 28 6f 66 66 73 63 72 65 | 65 6e 47 57 6f 72 6c 64 |(offscre|enGWorld|
|000008b0| 2c 20 70 69 78 65 6c 44 | 65 70 74 68 2c 20 62 6f |, pixelD|epth, bo|
|000008c0| 75 6e 64 52 65 63 74 2c | 20 63 54 61 62 6c 65 2c |undRect,| cTable,|
|000008d0| 20 61 47 44 65 76 69 63 | 65 2c 20 66 6c 61 67 73 | aGDevic|e, flags|
|000008e0| 29 0d 09 45 4e 44 20 55 | 70 64 61 74 65 47 57 6f |)..END U|pdateGWo|
|000008f0| 72 6c 64 3b 0d 0d 09 50 | 52 4f 43 45 44 55 52 45 |rld;...P|ROCEDURE|
|00000900| 20 5b 4e 4f 53 54 4b 43 | 48 4b 5d 20 53 65 74 47 | [NOSTKC|HK] SetG|
|00000910| 57 6f 72 6c 64 2a 20 28 | 70 6f 72 74 3a 20 4d 61 |World* (|port: Ma|
|00000920| 63 43 51 75 69 63 6b 44 | 72 61 77 2e 43 47 72 61 |cCQuickD|raw.CGra|
|00000930| 66 50 74 72 3b 20 67 64 | 68 3a 20 47 44 48 61 6e |fPtr; gd|h: GDHan|
|00000940| 64 6c 65 29 3b 0d 09 42 | 45 47 49 4e 0d 09 09 53 |dle);..B|EGIN...S|
|00000950| 59 53 54 45 4d 2e 50 55 | 54 52 45 47 28 30 2c 20 |YSTEM.PU|TREG(0, |
|00000960| 30 30 30 38 30 30 30 36 | 48 29 3b 0d 09 09 73 65 |00080006|H);...se|
|00000970| 74 47 57 6f 72 6c 64 28 | 70 6f 72 74 2c 20 67 64 |tGWorld(|port, gd|
|00000980| 68 29 0d 09 45 4e 44 20 | 53 65 74 47 57 6f 72 6c |h)..END |SetGWorl|
|00000990| 64 3b 0d 0d 09 50 52 4f | 43 45 44 55 52 45 20 5b |d;...PRO|CEDURE [|
|000009a0| 4e 4f 53 54 4b 43 48 4b | 5d 20 47 65 74 47 57 6f |NOSTKCHK|] GetGWo|
|000009b0| 72 6c 64 2a 20 28 56 41 | 52 20 70 6f 72 74 3a 20 |rld* (VA|R port: |
|000009c0| 4d 61 63 43 51 75 69 63 | 6b 44 72 61 77 2e 43 47 |MacCQuic|kDraw.CG|
|000009d0| 72 61 66 50 74 72 3b 20 | 56 41 52 20 67 64 68 3a |rafPtr; |VAR gdh:|
|000009e0| 20 47 44 48 61 6e 64 6c | 65 29 3b 0d 09 42 45 47 | GDHandl|e);..BEG|
|000009f0| 49 4e 0d 09 09 53 59 53 | 54 45 4d 2e 50 55 54 52 |IN...SYS|TEM.PUTR|
|00000a00| 45 47 28 30 2c 20 30 30 | 30 38 30 30 30 35 48 29 |EG(0, 00|080005H)|
|00000a10| 3b 0d 09 09 67 65 74 47 | 57 6f 72 6c 64 28 70 6f |;...getG|World(po|
|00000a20| 72 74 2c 20 67 64 68 29 | 0d 09 45 4e 44 20 47 65 |rt, gdh)|..END Ge|
|00000a30| 74 47 57 6f 72 6c 64 3b | 0d 0d 09 50 52 4f 43 45 |tGWorld;|...PROCE|
|00000a40| 44 55 52 45 20 5b 4e 4f | 53 54 4b 43 48 4b 5d 20 |DURE [NO|STKCHK] |
|00000a50| 44 69 73 70 6f 73 65 47 | 57 6f 72 6c 64 2a 20 28 |DisposeG|World* (|
|00000a60| 6f 66 66 73 63 72 65 65 | 6e 47 57 6f 72 6c 64 3a |offscree|nGWorld:|
|00000a70| 20 47 57 6f 72 6c 64 50 | 74 72 29 3b 0d 09 42 45 | GWorldP|tr);..BE|
|00000a80| 47 49 4e 0d 09 09 53 59 | 53 54 45 4d 2e 50 55 54 |GIN...SY|STEM.PUT|
|00000a90| 52 45 47 28 30 2c 20 30 | 30 30 34 30 30 30 34 48 |REG(0, 0|0040004H|
|00000aa0| 29 3b 0d 09 09 64 69 73 | 70 6f 73 65 47 57 6f 72 |);...dis|poseGWor|
|00000ab0| 6c 64 28 6f 66 66 73 63 | 72 65 65 6e 47 57 6f 72 |ld(offsc|reenGWor|
|00000ac0| 6c 64 29 0d 09 45 4e 44 | 20 44 69 73 70 6f 73 65 |ld)..END| Dispose|
|00000ad0| 47 57 6f 72 6c 64 3b 0d | 0d 09 50 52 4f 43 45 44 |GWorld;.|..PROCED|
|00000ae0| 55 52 45 20 5b 43 4f 44 | 45 5d 20 53 65 74 47 44 |URE [COD|E] SetGD|
|00000af0| 65 76 69 63 65 2a 28 67 | 64 68 3a 20 47 44 48 61 |evice*(g|dh: GDHa|
|00000b00| 6e 64 6c 65 29 20 30 41 | 41 48 2c 20 33 31 48 3b |ndle) 0A|AH, 31H;|
|00000b10| 0d 09 50 52 4f 43 45 44 | 55 52 45 20 5b 43 4f 44 |..PROCED|URE [COD|
|00000b20| 45 5d 20 47 65 74 47 44 | 65 76 69 63 65 2a 28 29 |E] GetGD|evice*()|
|00000b30| 3a 20 47 44 48 61 6e 64 | 6c 65 20 30 41 41 48 2c |: GDHand|le 0AAH,|
|00000b40| 20 33 32 48 3b 0d 0d 09 | 50 52 4f 43 45 44 55 52 | 32H;...|PROCEDUR|
|00000b50| 45 20 5b 43 4f 44 45 5d | 20 6e 65 77 53 63 72 65 |E [CODE]| newScre|
|00000b60| 65 6e 42 75 66 66 65 72 | 20 28 67 6c 6f 62 61 6c |enBuffer| (global|
|00000b70| 52 65 63 74 3a 20 4d 61 | 63 54 79 70 65 73 2e 52 |Rect: Ma|cTypes.R|
|00000b80| 65 63 74 3b 20 70 75 72 | 67 65 61 62 6c 65 3a 20 |ect; pur|geable: |
|00000b90| 42 4f 4f 4c 45 41 4e 3b | 0d 09 09 09 09 09 09 09 |BOOLEAN;|........|
|00000ba0| 09 56 41 52 20 67 64 68 | 3a 20 47 44 48 61 6e 64 |.VAR gdh|: GDHand|
|00000bb0| 6c 65 3b 0d 09 09 09 09 | 09 09 09 09 56 41 52 20 |le;.....|....VAR |
|00000bc0| 6f 66 66 73 63 72 65 65 | 6e 50 69 78 4d 61 70 3a |offscree|nPixMap:|
|00000bd0| 20 4d 61 63 43 51 75 69 | 63 6b 44 72 61 77 2e 50 | MacCQui|ckDraw.P|
|00000be0| 69 78 4d 61 70 48 61 6e | 64 6c 65 29 3a 20 49 4e |ixMapHan|dle): IN|
|00000bf0| 54 45 47 45 52 0d 30 41 | 42 48 2c 20 30 31 44 48 |TEGER.0A|BH, 01DH|
|00000c00| 3b 0d 09 50 52 4f 43 45 | 44 55 52 45 20 5b 43 4f |;..PROCE|DURE [CO|
|00000c10| 44 45 5d 20 64 69 73 70 | 6f 73 65 53 63 72 65 65 |DE] disp|oseScree|
|00000c20| 6e 42 75 66 66 65 72 20 | 28 6f 66 66 73 63 72 65 |nBuffer |(offscre|
|00000c30| 65 6e 50 69 78 4d 61 70 | 3a 20 4d 61 63 43 51 75 |enPixMap|: MacCQu|
|00000c40| 69 63 6b 44 72 61 77 2e | 50 69 78 4d 61 70 48 61 |ickDraw.|PixMapHa|
|00000c50| 6e 64 6c 65 29 20 0d 30 | 41 42 48 2c 20 30 31 44 |ndle) .0|ABH, 01D|
|00000c60| 48 3b 0d 09 50 52 4f 43 | 45 44 55 52 45 20 5b 43 |H;..PROC|EDURE [C|
|00000c70| 4f 44 45 5d 20 6c 6f 63 | 6b 50 69 78 65 6c 73 20 |ODE] loc|kPixels |
|00000c80| 28 70 6d 3a 20 4d 61 63 | 43 51 75 69 63 6b 44 72 |(pm: Mac|CQuickDr|
|00000c90| 61 77 2e 50 69 78 4d 61 | 70 48 61 6e 64 6c 65 29 |aw.PixMa|pHandle)|
|00000ca0| 3a 20 42 4f 4f 4c 45 41 | 4e 20 30 41 42 48 2c 20 |: BOOLEA|N 0ABH, |
|00000cb0| 30 31 44 48 3b 0d 09 50 | 52 4f 43 45 44 55 52 45 |01DH;..P|ROCEDURE|
|00000cc0| 20 5b 43 4f 44 45 5d 20 | 75 6e 6c 6f 63 6b 50 69 | [CODE] |unlockPi|
|00000cd0| 78 65 6c 73 20 28 70 6d | 3a 20 4d 61 63 43 51 75 |xels (pm|: MacCQu|
|00000ce0| 69 63 6b 44 72 61 77 2e | 50 69 78 4d 61 70 48 61 |ickDraw.|PixMapHa|
|00000cf0| 6e 64 6c 65 29 20 30 41 | 42 48 2c 20 30 31 44 48 |ndle) 0A|BH, 01DH|
|00000d00| 3b 0d 0d 09 50 52 4f 43 | 45 44 55 52 45 20 5b 4e |;...PROC|EDURE [N|
|00000d10| 4f 53 54 4b 43 48 4b 5d | 20 4e 65 77 53 63 72 65 |OSTKCHK]| NewScre|
|00000d20| 65 6e 42 75 66 66 65 72 | 2a 20 28 67 6c 6f 62 61 |enBuffer|* (globa|
|00000d30| 6c 52 65 63 74 3a 20 4d | 61 63 54 79 70 65 73 2e |lRect: M|acTypes.|
|00000d40| 52 65 63 74 3b 20 70 75 | 72 67 65 61 62 6c 65 3a |Rect; pu|rgeable:|
|00000d50| 20 42 4f 4f 4c 45 41 4e | 3b 0d 09 09 09 09 09 09 | BOOLEAN|;.......|
|00000d60| 09 09 56 41 52 20 67 64 | 68 3a 20 47 44 48 61 6e |..VAR gd|h: GDHan|
|00000d70| 64 6c 65 3b 0d 09 09 09 | 09 09 09 09 09 56 41 52 |dle;....|.....VAR|
|00000d80| 20 6f 66 66 73 63 72 65 | 65 6e 50 69 78 4d 61 70 | offscre|enPixMap|
|00000d90| 3a 20 4d 61 63 43 51 75 | 69 63 6b 44 72 61 77 2e |: MacCQu|ickDraw.|
|00000da0| 50 69 78 4d 61 70 48 61 | 6e 64 6c 65 29 3a 20 49 |PixMapHa|ndle): I|
|00000db0| 4e 54 45 47 45 52 3b 0d | 09 42 45 47 49 4e 0d 09 |NTEGER;.|.BEGIN..|
|00000dc0| 09 53 59 53 54 45 4d 2e | 50 55 54 52 45 47 28 30 |.SYSTEM.|PUTREG(0|
|00000dd0| 2c 20 30 30 30 45 30 30 | 31 30 48 29 3b 0d 09 09 |, 000E00|10H);...|
|00000de0| 52 45 54 55 52 4e 20 6e | 65 77 53 63 72 65 65 6e |RETURN n|ewScreen|
|00000df0| 42 75 66 66 65 72 28 67 | 6c 6f 62 61 6c 52 65 63 |Buffer(g|lobalRec|
|00000e00| 74 2c 20 70 75 72 67 65 | 61 62 6c 65 2c 20 67 64 |t, purge|able, gd|
|00000e10| 68 2c 20 6f 66 66 73 63 | 72 65 65 6e 50 69 78 4d |h, offsc|reenPixM|
|00000e20| 61 70 29 0d 09 45 4e 44 | 20 4e 65 77 53 63 72 65 |ap)..END| NewScre|
|00000e30| 65 6e 42 75 66 66 65 72 | 3b 0d 0d 09 50 52 4f 43 |enBuffer|;...PROC|
|00000e40| 45 44 55 52 45 20 5b 4e | 4f 53 54 4b 43 48 4b 5d |EDURE [N|OSTKCHK]|
|00000e50| 20 44 69 73 70 6f 73 65 | 53 63 72 65 65 6e 42 75 | Dispose|ScreenBu|
|00000e60| 66 66 65 72 2a 20 28 6f | 66 66 73 63 72 65 65 6e |ffer* (o|ffscreen|
|00000e70| 50 69 78 4d 61 70 3a 20 | 4d 61 63 43 51 75 69 63 |PixMap: |MacCQuic|
|00000e80| 6b 44 72 61 77 2e 50 69 | 78 4d 61 70 48 61 6e 64 |kDraw.Pi|xMapHand|
|00000e90| 6c 65 29 3b 0d 09 42 45 | 47 49 4e 0d 09 09 53 59 |le);..BE|GIN...SY|
|00000ea0| 53 54 45 4d 2e 50 55 54 | 52 45 47 28 30 2c 20 30 |STEM.PUT|REG(0, 0|
|00000eb0| 30 30 34 30 30 31 31 48 | 29 3b 0d 09 09 64 69 73 |0040011H|);...dis|
|00000ec0| 70 6f 73 65 53 63 72 65 | 65 6e 42 75 66 66 65 72 |poseScre|enBuffer|
|00000ed0| 28 6f 66 66 73 63 72 65 | 65 6e 50 69 78 4d 61 70 |(offscre|enPixMap|
|00000ee0| 29 0d 09 45 4e 44 20 44 | 69 73 70 6f 73 65 53 63 |)..END D|isposeSc|
|00000ef0| 72 65 65 6e 42 75 66 66 | 65 72 3b 0d 09 0d 09 50 |reenBuff|er;....P|
|00000f00| 52 4f 43 45 44 55 52 45 | 20 5b 4e 4f 53 54 4b 43 |ROCEDURE| [NOSTKC|
|00000f10| 48 4b 5d 20 4c 6f 63 6b | 50 69 78 65 6c 73 2a 20 |HK] Lock|Pixels* |
|00000f20| 28 70 6d 3a 20 4d 61 63 | 43 51 75 69 63 6b 44 72 |(pm: Mac|CQuickDr|
|00000f30| 61 77 2e 50 69 78 4d 61 | 70 48 61 6e 64 6c 65 29 |aw.PixMa|pHandle)|
|00000f40| 3a 20 42 4f 4f 4c 45 41 | 4e 3b 0d 09 42 45 47 49 |: BOOLEA|N;..BEGI|
|00000f50| 4e 0d 09 09 53 59 53 54 | 45 4d 2e 50 55 54 52 45 |N...SYST|EM.PUTRE|
|00000f60| 47 28 30 2c 20 30 30 30 | 34 30 30 30 31 48 29 3b |G(0, 000|40001H);|
|00000f70| 0d 09 09 52 45 54 55 52 | 4e 20 6c 6f 63 6b 50 69 |...RETUR|N lockPi|
|00000f80| 78 65 6c 73 28 70 6d 29 | 3b 0d 09 45 4e 44 20 4c |xels(pm)|;..END L|
|00000f90| 6f 63 6b 50 69 78 65 6c | 73 3b 0d 09 0d 09 50 52 |ockPixel|s;....PR|
|00000fa0| 4f 43 45 44 55 52 45 20 | 5b 4e 4f 53 54 4b 43 48 |OCEDURE |[NOSTKCH|
|00000fb0| 4b 5d 20 55 6e 6c 6f 63 | 6b 50 69 78 65 6c 73 2a |K] Unloc|kPixels*|
|00000fc0| 20 28 70 6d 3a 20 4d 61 | 63 43 51 75 69 63 6b 44 | (pm: Ma|cCQuickD|
|00000fd0| 72 61 77 2e 50 69 78 4d | 61 70 48 61 6e 64 6c 65 |raw.PixM|apHandle|
|00000fe0| 29 3b 0d 09 42 45 47 49 | 4e 0d 09 09 53 59 53 54 |);..BEGI|N...SYST|
|00000ff0| 45 4d 2e 50 55 54 52 45 | 47 28 30 2c 20 30 30 30 |EM.PUTRE|G(0, 000|
|00001000| 34 30 30 30 32 48 29 3b | 0d 09 09 75 6e 6c 6f 63 |40002H);|...unloc|
|00001010| 6b 50 69 78 65 6c 73 28 | 70 6d 29 3b 0d 09 45 4e |kPixels(|pm);..EN|
|00001020| 44 20 55 6e 6c 6f 63 6b | 50 69 78 65 6c 73 3b 0d |D Unlock|Pixels;.|
|00001030| 0d 45 4e 44 20 4d 61 63 | 47 44 65 76 69 63 65 73 |.END Mac|GDevices|
|00001040| 2e 0d 82 f1 54 65 78 74 | 43 6f 6e 74 72 6f 6c 6c |....Text|Controll|
|00001050| 65 72 73 2e 53 74 64 43 | 74 72 6c 44 65 73 63 00 |ers.StdC|trlDesc.|
|00001060| f1 54 65 78 74 43 6f 6e | 74 72 6f 6c 6c 65 72 73 |.TextCon|trollers|
|00001070| 2e 43 6f 6e 74 72 6f 6c | 6c 65 72 44 65 73 63 00 |.Control|lerDesc.|
|00001080| f1 43 6f 6e 74 61 69 6e | 65 72 73 2e 43 6f 6e 74 |.Contain|ers.Cont|
|00001090| 72 6f 6c 6c 65 72 44 65 | 73 63 00 f1 43 6f 6e 74 |rollerDe|sc..Cont|
|000010a0| 72 6f 6c 6c 65 72 73 2e | 43 6f 6e 74 72 6f 6c 6c |rollers.|Controll|
|000010b0| 65 72 44 65 73 63 00 f2 | 04 00 00 00 00 00 00 00 |erDesc..|........|
|000010c0| 14 00 00 00 00 00 00 00 | 09 00 00 00 00 00 00 00 |........|........|
|000010d0| 00 00 00 00 00 00 00 01 | 82 f1 54 65 78 74 52 75 |........|..TextRu|
|000010e0| 6c 65 72 73 2e 53 74 64 | 52 75 6c 65 72 44 65 73 |lers.Std|RulerDes|
|000010f0| 63 00 f1 54 65 78 74 52 | 75 6c 65 72 73 2e 52 75 |c..TextR|ulers.Ru|
|00001100| 6c 65 72 44 65 73 63 00 | f2 03 00 00 00 00 00 00 |lerDesc.|........|
|00001110| 00 ab 00 00 00 07 00 00 | 00 a3 00 00 00 00 00 00 |........|........|
|00001120| 83 f1 54 65 78 74 52 75 | 6c 65 72 73 2e 53 74 64 |..TextRu|lers.Std|
|00001130| 53 74 79 6c 65 44 65 73 | 63 00 f1 54 65 78 74 52 |StyleDes|c..TextR|
|00001140| 75 6c 65 72 73 2e 53 74 | 79 6c 65 44 65 73 63 00 |ulers.St|yleDesc.|
|00001150| f2 07 00 00 00 00 00 00 | 00 00 00 00 00 08 00 00 |........|........|
|00001160| 00 5a 00 00 00 00 00 00 | 00 82 f1 54 65 78 74 52 |.Z......|...TextR|
|00001170| 75 6c 65 72 73 2e 41 74 | 74 72 69 62 75 74 65 73 |ulers.At|tributes|
|00001180| 44 65 73 63 00 f2 04 00 | 00 00 00 00 00 00 00 00 |Desc....|........|
|00001190| 00 00 00 00 00 00 24 00 | 00 00 00 01 00 00 00 00 |......$.|........|
|000011a0| 00 00 00 00 20 a3 5a 00 | 00 00 00 00 18 f0 01 00 |.... .Z.|........|
|000011b0| 38 63 00 00 01 00 00 00 | 21 00 00 00 00 00 00 00 |8c......|!.......|
|000011c0| 82 f2 0d 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000011d0| 00 00 1f 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000011e0| 47 65 6e 65 76 61 00 7c | be 01 00 00 00 00 00 90 |Geneva.||........|
|000011f0| 01 00 00 00 00 00 00 00 | 00 00 00 00 00 e0 8c 01 |........|........|
|00001200| 00 e0 8c 01 00 00 30 5c | 00 e0 b9 3b 3e 82 f1 44 |......0\|...;>..D|
|00001210| 6f 63 75 6d 65 6e 74 73 | 2e 43 6f 6e 74 72 6f 6c |ocuments|.Control|
|00001220| 6c 65 72 44 65 73 63 00 | f2 10 00 00 00 00 00 00 |lerDesc.|........|
|00001230| 00 00 00 00 00 00 00 00 | 00 08 00 00 00 00 00 00 |........|........|
|00001240| 00 00 00 00 00 00 00 94 | 4d 73 00 18 2b a3 00 ac |........|Ms..+...|
|00001250| 9e 05 00 48 d0 05 00 e8 | ae 6d 00 d0 5a 9d 00 01 |...H....|.m..Z...|
+--------+-------------------------+-------------------------+--------+--------+